home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / v cisle / hexer / mpth_17.exe / {app} / scripts / Concat Files.mps < prev    next >
Text File  |  2005-05-22  |  923b  |  46 lines
  1. include '*.lng'
  2. = concat files (file.01, ...02,...)
  3.  
  4. var fname text, path text, filer text, datt text curline dword
  5. var lenlf dword, pos dword, file1 file, ed file, dat file lines dword
  6.  
  7. fname = askopenfilename(__AOC__, __AOF__):= get data file
  8. path = extractpath(fname)
  9. file1 = fileopen(fname)
  10. fileread file1 fname
  11. datt = fname
  12. fileclose file1
  13. lines = 0
  14. lenlf = textlen("\n")
  15. @@L0
  16. pos = textpos("\n", datt)
  17. inc lines 1
  18. datt = textcopy(datt, pos+lenlf)
  19. if (datt != '') 
  20.   goto L0
  21. endif
  22.  
  23. curline = 0
  24. ed = fileopen('::new', 'c')
  25. @@L
  26. pos = textpos("\n", fname)
  27. filer = path+textcopy(fname, 1, pos-1)
  28. fname = textcopy(fname, pos+lenlf)
  29. if not fileexists(filer) 
  30.   error __ERRF1__,filer,__ERRF2__
  31. endif
  32.  
  33. dat = fileopen(filer)
  34. fileread dat datt filesize(dat)
  35. fileclose dat
  36.  
  37. filewrite ed datt
  38. showprogress lines, curline
  39. inc curline 1
  40.  
  41. if fname != '' 
  42.   goto L
  43. endif
  44. showprogress 100
  45.  
  46.